0 IFA=1THEN FORX=1TO1000:NEXT:POKE251,6:POKE252,6:GOTO4
1 POKE53274,.:SYS65418:POKE53280,6:POKE53281,6
2 PRINT"[147][208]LEASE [215]AIT...."
3 IFA=0THENA=1:LOAD"RASTER.O",8,1
4 TP=49:BOT=250:POKE253,TP:POKE254,BOT:POKE53280,12:POKE53281,12:SYS32768
5 POKE253,TP:POKE254,BOT
6 TP=TP+1:BOT=BOT-1
7 IFTP=150 THEN PRINT"[147]"
8 IFTP>155 THEN 10
9 GOTO 5
10 POKE53274,0:SYS65418:POKE650,128:PRINT"[152][147]":POKE53265,12:FORX=1TO1000:NEXT
25 POKE53280,12:POKE53281, 0:PRINT"[147]";
26 PRINT"[152]                                                [158]   l o a d s t a r   ";
27 PRINT"[152]                         pRESENTS                                      ";
28 PRINT"                                                                       ";
29 PRINT"                         [152]              [153]  zero page : bITS        [151] [152]";
30 PRINT"                                       [151] [152]            [153]  'rASTER iNTER";
31 PRINT"RUPTS'      [151] [152]                                       [151] [152]        [153] (i";
32 PRINT"NTERACTIVE [196]EMONSTRATION)   [151] [152]                                       ";
33 PRINT"[151] [152]        [151]                                [152]                           ";
34 PRINT"                       [159]                         [152]               [159]    wR";
35 PRINT"ITTEN [194]Y [202]IM [210]OW   [151] [152]              [159]                         [151] [152]       ";
36 PRINT"       [159]                         [151] [152]               [151]                    ";
37 PRINT"     [152]                                                          copyrig";
38 PRINT"ht[160]1988           [152]                                                     ";
39 PRINT"                               [155]   [208]RESS [211][208][193][195][197] WHEN READY TO CONTINUE   ";
40 PRINT"[152]                                       ":POKE2023,32+128
45 POKE53265,27
50 GETA$:IFA$=""THEN50
51 POKE253,76 :REM FIRST RASTER INT.
52 POKE254,228:REM SECOND RASTER INT.
53 :
54 POKE251,0:  REM COLOR1
55 POKE252,6:  REM COLOR2
56 :
57 POKE53280,240:POKE53281,246
58 :
60 PRINT"[147]":SYS32768
70 PRINT"[147]         [210]ASTER [201]NTERRUPT [196]EMO
71 [153]"         TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
72 PRINT"    [208]RESS [198]1 [212]O RAISE TOP LINE
73 [153]"    (null)RESS ASC3 (null)O LOWER TOP LINE
75 PRINT"    [208]RESS [198]5 [212]O RAISE BOTTOM LINE
76 [153]"    (null)RESS ASC7 (null)O LOWER BOTTOM LINE
77 PRINT"    [208]RESS [211] TO CHANGE [211][195][210][197][197][206] [195][207][204][207][210]
78 [153]"    (null)RESS PEEK TO CHANGE PEEK(null)(null)STR$VAL(null) LEN(null)(null)(null)(null)
79 PRINT"    [208]RESS [211][208][193][195][197][146] TO [197][216][201][212] TO [204][207][193][196][211][212][193][210]
80 [161]A$:[139]A$[178]""[167]80
81 [139]A$[178]"INPUT"[175] [194](253)[177]1[167] [151]253,[194](253)[171]1
82 [139]A$[178]"DIM"[175] [194](253)[179]255[167] [151]253,[194](253)[170]1
83 [139]A$[178]"READ"[175] [194](254)[177]1 [167] [151]254,[194](254)[171]1
84 [139]A$[178]"LET"[175] [194](254)[179]255[167] [151]254,[194](254)[170]1
85 [139]A$[178]" "[167]100
86 [139]A$[178]"S"[176]A$[178]"(null)"[167][151]251,[194](251)[170]1:[139][194](251)[178]16[167][151]251,0
87 [139]A$[178]"B"[176]A$[178]"PEEK"[167][151]252,[194](252)[170]1:[139][194](252)[178]16[167][151]252,0
88 [139]A$[178]" "[167]100
89 [139][194](251)[178]1[167][151]251,2
90 [137] 80
100 [153]"  ATNRE YOU SURE YOU WANT TO QUIT? ((null)/(null)) "
110 [161]A$:[139]A$[178]""[167]110
111 [139]A$[178]"Y"[176]A$[178]"(null)"[167] 120
112 [139]A$[178]"N"[176]A$[178]"(null)"[167] 70
115 [137] 110
120 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER,ER$:[160]15
121 [151]53274,.:[158]65418
125 [139]ER[179][177]63 [167] [153]"LOAD":[128]
130 [147]"HELLO CONNECT",8